home *** CD-ROM | disk | FTP | other *** search
/ WINMX Assorted Textfiles / Ebooks.tar / Text - Tech - Hacking - Decode Trillian Passwords (TXT, VBS).zip / decoder.vbs < prev    next >
Text File  |  2002-03-08  |  1KB  |  28 lines
  1. dim fso
  2. set fso = createobject("scripting.filesystemobject")
  3. const ForReading = 1
  4. set blockfile = fso.opentextfile("blockfile.txt", ForReading)
  5. password = inputbox("Password  (Encoded Trillian passwords are only 32 characters in length)")
  6. length_password = len(password)
  7. if length_password > 32 then password = mid(password,1,32) : length_password = 32
  8.  
  9. password_timer = 1
  10.  
  11. all_char = blockfile.readline
  12.  
  13.    do until password_timer > length_password
  14.       block_timer = 1
  15.       all_char_timer = 1
  16.       ablock = blockfile.readline
  17.       password_chars = mid(password,password_timer,2)
  18.          do
  19.             if all_char_timer = 378 then msgbox("Doesn't Match")
  20.             if password_chars = mid(ablock,block_timer,2) then realpassword = realpassword & mid(all_char,all_char_timer,1) : exit do
  21.             block_timer = block_timer + 2
  22.             all_char_timer = all_char_timer + 1
  23.          loop
  24.       password_timer = password_timer + 2
  25.    loop
  26. ablock.close
  27.  
  28. the_real_password = inputbox("", "", realpassword)